1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
5 GOTO300
100 A=12*4096
110 READD
115 IFD=-1THEN140
120 POKEA,D
125 A=A+1
130 GOTO110
140 SYS12*4096
150 POKE1,PEEK(1)AND253
151 PRINT"[147]":POKE53280,14:POKE53281,6:POKE646,14:NEW
160 DATA 169,0,133,251,169,160,133,252,160,0,177,251,145,251,136
161 DATA 208,249,230,252,165,252,201,192,208,241,169,0,133,251,169
162 DATA 224,133,252,160,0,177,251,145,251,136,208,249,230,252,165
163 DATA 252,201,0,208,241,173,148,192,141,1,233,173,149,192,141
164 DATA 2,233,96,224,0,208,42,120,169,6,141,150,192,32,128
165 DATA 192,173,17,208,41,240,24,109,150,192,141,17,208,206,150
166 DATA 192,16,236,160,40,204,18,208,208,251,169,128,44,17,208
167 DATA 208,242,240,15,224,13,208,11,173,17,208,41,240,24,105
168 DATA 7,141,17,208,32,240,233,96,160,2,169,248,205,18,208
169 DATA 208,251,169,249,205,18,208,208,251,136,208,239,96,63,192,-1
300 POKE53280,6:POKE53281,0:GOSUB301:GOTO310
301 PRINT"[145][147][158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
302 PRINT" [194][156]             SOFT SCROLL            [146][158][194]"
303 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][159]":RETURN
310 PRINTTAB(6)"MIT DIESEM PROGRAMM KOENNEN"
311 PRINTTAB(6)"SIE EIN WEICHES (SOFT) SCROLLEN"
312 PRINTTAB(6)"EINES PROGRAMMLISTINGS ERZIELEN."
313 PRINTTAB(6)"ZUR AKTIVIERUNG DES SOFT-SCROLLS"
314 PRINTTAB(6)"GEBEN SIE EIN:[154]"
315 PRINTTAB(6)"POKE 1, PEEK(1) AND 253[159]"
316 PRINTTAB(6)"DANN (IM UNSICHTBAREN) DEN NOR-"
317 PRINTTAB(6)"MALEN LIST-BEFEHL WIE LIST100-"
318 PRINTTAB(6)"ALS BEISPIEL. UNTERBRECHEN "
319 PRINTTAB(6)"KOENNEN SIE DEN SOFT-SCROLL "
320 PRINTTAB(6)"MIT RUNSTOP (TASTE GEDRUECKT"
321 PRINTTAB(6)"HALTEN."
322 PRINTTAB(13)"DRUECK SPACE":GOSUB360
330 GOSUB301
331 PRINTTAB(6)"NACH RUNSTOP KOENNEN SIE WEITER"
332 PRINTTAB(6)"IM SOFT-SCROLL-MODUS BLEIBEN,"
333 PRINTTAB(6)"INDEM SIE LIST EINGEBEN. SIE"
334 PRINTTAB(6)"JEDOCH AUCH DEN MODUS AUSSCHALTEN."
336 PRINTTAB(6)"FOLGENDEN BEFEHL EIN:[154]"
337 PRINTTAB(6)"POKE 1, PEEK (1) OR 2[159]"
338 PRINTTAB(6)"BEI ERNEUTEM SOFT-SCROLL WUNSCH"
339 PRINTTAB(6)"IST WIEDER DER SCHON ERWAEHNTE"
340 PRINTTAB(6)"POKE EINZUGEBEN. "
341 PRINTTAB(6)"MIT RUNSTOP/RESTORE KOMMEN SIE"
342 PRINTTAB(6)"AUCH DEM MODUS. ES EMPFIEHLT"
343 PRINTTAB(6)"SICH, DANN DEN AUSSCHALTPOKE"
344 PRINTTAB(6)"TROTZDEM EINZUGEBEN."
345 PRINTTAB(13)"DRUECK SPACE":GOSUB360:GOTO400
360 POKE198,0:WAIT198,1:GETE$
361 IFE$=CHR$(32)THENRETURN
362 GOTO360
400 GOSUB301:PRINT""
401 PRINTTAB(6)"INS BASIC MIT AKTIVIERUNG [1]"
402 PRINTTAB(6)"PROGRAMM BEENDEN          [2]"
403 PRINTTAB(6)"ZUM UTILITIE-MENUE        [3]"
405 POKE198,0:WAIT198,1:GETE$
406 IFE$="1"THEN420
407 IFE$="2"THENSYS64738
408 IFE$="3"THEN410
409 GOTO405
410 PRINT""TAB(6)"[129]GEHT NICHT...ZGST. !     ":END
420 PRINT""TAB(6)"[129]BITTE WARTEN             ":GOTO100